(jka-compr-write-region): If START = nil, use whole buf.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 0521d9840fc5b84b4137f8e462ae50a54f30f96c..a13f43faf19d9e6b0bf6c3c350f6152405e5a569 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -394,6 +394,10 @@ There should be no more than seven characters after the final `/'."
         (info (jka-compr-get-compression-info visit-file))
         (magic (and info (jka-compr-info-file-magic-bytes info))))
 
+    ;; If START is nil, use the whole buffer.
+    (if (null start)
+       (setq start 1 end (1+ (buffer-size))))
+
     ;; If we uncompressed this file when visiting it,
     ;; then recompress it when writing it
     ;; even if the contents look compressed already.